clear all

// SET MACROS
global Input  "Y:/limited/Michigan_CTE/funding_change/data_final"
global Output "Y:/limited/Michigan_CTE/funding_change/output/figures"

qui include "Y:/limited/Michigan_CTE/funding_change/code/analyze/figures/00_colors.do"

// LOAD DATA
use $Input/compiled_student_analysis_data.dta


// COLLAPSE DATA
gcollapse part=cte_any conc=cte_conc_comp comp=cte_comp, by(grad_year) fast

// DRAW GRAPH
tw (connected comp conc part grad_year, ///
   mc("$c1" "$c2" "$c3") ///
   m(O D T) ///
   lc("$c1" "$c2" "$c3") ///
   lp(solid dash shortdash)), ///
   xline(2014.5 2015.5, lc(gs12) lp(-)) ///
   text(0.7 2014.5 "Funding" "increased," "new formula" "announced", placement(0) color(black) box bcolor(white) margin(r=2 b=1)) ///
   text(0.7285 2015.5 "New" "formula" "applied", placement(0) color(black) box bcolor(white) margin(l=2 t=2 b=1)) ///
   ytitle("Share of Students" " ") ///
   yscale(range(0 0.75)) ///
   ylabel(0 "0%" 0.1 "10%" 0.2 "20%" 0.3 "30%" 0.4 "40%" 0.5 "50%" 0.6 "60%" 0.7 "70%", angle(0) glc(gs13) glp(shortdash) glw(vthin)) /// 
   xtitle(" " "Cohort Graduation Year", margin(t=2)) ///
   xlabel(2010/2019) ///
   legend(order(1 "Completers" 2 "Concentrators" 3 "Participants") rows(1) symxsize(7) region(lstyle(none))) ///
   graphregion(color(white)) bgcolor(white) ///
   plotregion(margin(b=0)) ///
   xsize(7.5) ysize(4) ///
	 scheme(s2color)

// EXPORT GRAPH

graph save  $Output/01_unadj_student_advancement.gph, replace
*graph export $Output/01_unadj_student_advancement.png, replace


